-- background: 18894 from stack: in
-- bmap block id: 19343
-- flags: 0000
-- background id: 0
-- name: Seventh Heaven Host
----- HyperTalk script -----
on openCard
  global env,sol,holder,prodname,Reads,Writes,Network,sideone,default
  global holder2,prodname2,Reads2,Writes2,Network2,sidetwo,common
  global prodname3,prodname4,prodname5,service,floor,NH
  global prodnameH,prodnameHP,tidyUpNow,service,foundation,lastRoom
  global testRoom,testRoom2,testRoom3
  put empty into fld "click"
  put empty into fld "click2"
  put "Info Management" into default
  if sol is empty then put default into sol
  if env is empty then put "Mac" into env
  set hilite of bkgnd btn id 43 to false
  set hilite of bkgnd btn id 52 to false
  --∆ Check cleaning flags
  put env && sol into testRoom
  put env && service into testRoom2
  put env && foundation into testRoom3
  if lastRoom = testRoom or lastRoom = testRoom2 or lastRoom = testRoom3 then
    put false into tidyUpNow
  else
    put true into tidyUpNow
  end if
  if tidyUpNow is true then clean
  put false into tidyUpNow
  --∆ Set up for Hardware level 1
  if floor is 1 then
    if env is "Mac" then
      put "Macintosh to Macintosh" && sol && "Room" into fld "Solname"
    else
      put "Macintosh to" && env && sol && "Room" into fld "Solname"
    end if
    put card field (env && sol) of card "Mac Grid" into holder
    if prodNameH <> empty then
      put "click for product info" into fld "click"
      put prodnameH into fld "Prodname"
      set hilite of bkgnd btn id 43 to true
      if prodNameHP <> empty then
        put prodnameHP into fld "Prodname2"
        set hilite of bkgnd btn id 52 to true
        put "click for product info" into fld "click2"
      end if
    end if
    set hilite of bkgnd btn "Application Level" to false
    set hilite of bkgnd btn "Network Level" to false
    set hilite of bkgnd btn "Hardware Level" to true
    exit opencard
  end if
  --∆ Set up for Network Services level 2
  if floor is 2 then
    if env is "Mac" then
      put "Macintosh to Macintosh" && sol && "Room" into fld "Solname"
    else
      put "Macintosh to" && env && sol && "Room" into fld "Solname"
    end if
    set hilite of bkgnd btn "Application Level" to false
    set hilite of bkgnd btn "Network Level" to true
    set hilite of bkgnd btn "Hardware Level" to false
    exit opencard
  end if
  --∆ Set up for Applications level 3
  if floor is 3 then
    --∆ Set titles at back of room
    if env is "Mac" then
      put "Macintosh to Macintosh" && sol && "Room" into fld "Solname"
    else
      put "Macintosh to" && env && sol && "Room" into fld "Solname"
    end if
    put card field (env && sol) of card "Mac Grid" into holder
    put env && "Solution Room" & return & "click on the Macintosh" into fld "Tell"
    put empty into sideone
    put empty into fld "Side1"
    put empty into fld "prodName"
    put empty into fld "prodNameUp"
    put empty into sidetwo
    put empty into fld "Side2"
    put empty into fld "prodName2"
    put empty into fld "prodNameUp2"
    put empty into fld "Network"
    put "O" into CPUTitle
    put "O" into CPUTitle2
    put empty into common
    --∆ Fill in left side of room if a mac product has been selected
    if prodName <> empty then
      set hilite of bkgnd btn id 43 to true
      put "click for product info" into fld "click"
      put prodname into fld "Prodname"
      put prodname into fld "ProdnameUp"
      repeat with i = 1 to the number of lines of Reads
        if item 1 of line i of Reads is return then
          exit repeat
        else
          put item 1 of line i of Reads & return after sideone
        end if
      end repeat
    end if
    --∆ Fill in right side of room if a host product has been selected
    if prodName2 <> empty or prodName3 <> empty then
      set hilite of bkgnd btn id 52 to true
      put "click for product info" into fld "click2"
      --∆ Special treatment if prodName 3 if full
      if prodName3 <> empty then
        put empty into common
        put prodname3 into fld "Prodname2"
        put prodname3 into fld "ProdnameUp2"
      else
        put prodname2 into fld "Prodname2"
        put prodname2 into fld "ProdnameUp2"
        if env is "Mac" then
          put "Macintosh o" into CPUTitle2
        else
          put env & " o" into CPUTitle2
        end if
      end if
      repeat with i = 1 to the number of lines of Reads2
        if item 1 of line i of Reads2 is return then
          exit repeat
        else
          put item 1 of line i of Reads2 & return after sidetwo
        end if
      end repeat
    end if
    --∆ Insert correct titles and display file formats
    if sideone <> empty then
      put "Macintosh opens files using:" & return & sideone into fld "Side1"
    else
      put "Click on CPU screen at left to configure." into fld "Side1"
    end if
    if sidetwo <> empty then
      put CPUTitle2 & "pens files using:" & return & sidetwo into fld "Side2"
    else
      put "Click on CPU screen at right to configure." into fld "Side2"
    end if
    --∆ Determine file format matches
    put empty into matchRW
    put empty into matchWR
    if sideone <> empty and sidetwo <> empty then
      repeat with i = 1 to the number of lines of Reads
        if item 1 of line i of Reads is return then exit repeat
        if item 1 of line i of Reads is in Writes2 then
          put "Read-Write match" into matchRW
        end if
      end repeat
      repeat with i = 1 to the number of lines of Reads2
        if item 1 of line i of Reads2 is return then exit repeat
        if item 1 of line i of Reads2 is in Writes then
          put "Write-Read match" into matchWR
        end if
      end repeat
      put matchRW & ", " & matchWR & return after common
    end if
    --∆ Network compare
    repeat with i = 1 to the number of lines of Network
      if item 1 of line i of Network is return then exit repeat
      if item 1 of line i of Network is in Network2 then
        put item 1 of line i of Network & return after common
      end if
    end repeat
    if common <> empty then
      if matchRW is empty or matchWR is empty then
        put "Network Method:" & return & "Translation" into fld "Network"
      end if
      put "Network Method(s):" & return & common into fld "Network"
    else
      put return & "No communication link found" into fld "Network"
    end if
    set hilite of bkgnd btn "Network Level" to false
    set hilite of bkgnd btn "Application Level" to true
    set hilite of bkgnd btn "Hardware Level" to false
    --∆ Set connection buttons to prompt viewer for next best step
    if fld "prodname" is not empty then
      set icon of cd btn "wire1" to "Connected"
    else
      if fld "prodname2" is not empty then
        set icon of cd btn "wire1" to "Only Broken Left"
      else
        set icon of cd btn "wire1" to "Broken Left"
      end if
    end if
    if fld "prodname2" is not empty then
      set icon of cd btn "wire2" to "Connected"
    else
      if fld "prodname" is not empty then
        set icon of cd btn "wire2" to "Only Broken Right"
      else
        set icon of cd btn "wire2" to "Broken Right"
      end if
    end if
  end if
end openCard

on closeCard
  global service,network
  put "" into fld "Tell"
  put "" into fld "Prodname"
  put "" into fld "ProdnameUp"
  put "" into fld "Side1"
  put "" into fld "Side2"
  put "" into fld "Network"
  put "" into fld "Prodname2"
  put "" into fld "ProdnameUp2"
  set hilite of bkgnd btn id 43 to false
  set hilite of bkgnd btn id 52 to false
  put "" into fld "Click"
  put "" into fld "Click2"
end closeCard

on parseR
  global holder,Reads,prodname
  put empty into Reads
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 4 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Reads
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseR

on parseW
  global holder,Writes,prodname
  put empty into Writes
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 5 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Writes
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseW

on parseN
  global holder,Network,prodname
  put empty into Network
  repeat with i = 1 to the number of lines of holder
    if item 1 of line i of holder is prodname then
      put item 6 of line i of holder into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Network
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseN

on parseR2
  global holder2,Reads2,prodname2
  put empty into Reads2
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put item 4 of line i of holder2 into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Reads2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseR2

on parseW2
  global holder2,Writes2,prodname2
  put empty into Writes2
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put item 5 of line i of holder2 into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Writes2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseW2

on parseN2
  global holder2,Network2,prodname2
  put empty into Network2
  repeat with i = 1 to the number of lines of holder2
    if item 2 of line i of holder2 is prodname2 then
      put item 6 of line i of holder2 into dotnames
      repeat
        put offset("•",dotnames) into num
        if num is empty or num is 0 then exit repeat
        put char 1 to (num - 1) of dotnames & return after Network2
        delete char 1 to num of dotnames
      end repeat
    end if
  end repeat
end parseN2

on extractMac
  global sol,env,holder
  --environments,envnum,solutions,solnum,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 1 of line i of it <> empty then
      put line i of it & return after holder
    end if
  end repeat
end extractMac

on extractHost
  global sol,env,environments,envnum,solutions,solnum,holder
  get card field (env && sol) of card "Mac Grid"
  put empty into holder
  repeat with i = 1 to the number of lines of it
    if item 2 of line i of it <> empty then
      put line i of it after holder
    end if
  end repeat
end extractHost

on clean
  global Read,Reads,Write,Writes,Network,prodname,side1
  global Read2,Reads2,Write2,Writes2,Network2,prodname2,side2,prodname3
  global protocol,prodname4,prodname5,service,network1,choice,floor
  global protocol1,prodnameH,prodnameHP,common,tidyUpSome
  --∆ Check if only the right side should be cleaned.  tidyUpSome is
  --∆ set in the zoomed in mac screen when changing environemnts.
  if tidyUpSome is false then
    put empty into Read
    put empty into Reads
    put empty into Write
    put empty into Writes
    put empty into Network
    put empty into prodname
    put empty into side1
    put empty into fld "click"
    put empty into fld "Prodname"
    put empty into fld "ProdnameUp"
    put empty into fld "Side1"
    put empty into cd fld "Protocol" of cd "Hardware Room"
    put empty into protocol
  end if
  put empty into Read2
  put empty into Reads2
  put empty into Write2
  put empty into Writes2
  put empty into Network2
  put empty into side2
  put empty into prodname2
  put empty into fld "click2"
  put empty into fld "Prodname2"
  put empty into fld "ProdnameUp2"
  put empty into fld "Side2"
  put empty into cd fld "Protocol2" of cd "Hardware Room"
  put empty into fld "Network"
  put empty into prodname3
  put empty into prodname4
  put empty into prodname5
  put empty into prodnameH
  put empty into prodnameHP
  put empty into protocol1
  put empty into service
  put empty into network1
  put empty into choice
  put empty into common
  put false into tidyUpNow
  put false into tidyUpSome
  set hilite of bkgnd btn id 43 to false
  set hilite of bkgnd btn id 52 to false
end clean


-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=40 top=228 right=241 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: click
----- HyperTalk script -----
on mouseEnter
  ChangeCurs 6069
  put "Macintosh Side Product" & return & "click for product details" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  if fld "prodname" is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of fld "prodname" into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=182 top=251 right=270 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Application Level
----- HyperTalk script -----
on mouseUp
  Global env,sol,sol1,default,theRoom,floor
  set the highlight of bkgnd btn "Application Level" to true
  set the highlight of bkgnd btn "Network Level" to false
  set the highlight of bkgnd btn "Hardware Level" to false
  set cursor to busy
  set lockscreen to true
  put 3 into floor
  --• put something into application room environment
  --• if user comes from below
  if sol1 is empty then put default into sol1
  put sol1 into sol
  --if bkgnd fld "Floorname" is "Hardware Level" then
  if env is not "Mac" then
    if env is not "PC" then
      put "room" into theRoom
    else
      put "roomMicro" into theRoom
    end if
  else
    put "roomMac" into theRoom
  end if
  --end if
  go to cd theRoom
  unlock screen with wipe down slowly
end mouseUp

on mouseEnter
  put "Application Level Button" & return & "click to change levels" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown




-- part 25 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=182 top=269 right=287 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Network Level
----- HyperTalk script -----
on mouseUp
  Global env,theRoom,sol,sol1,default,floor,network,network1,service
  set the highlight of bkgnd btn "Network Level" to true
  set the highlight of Background button "Application Level" to false
  set the highlight of Background button "Hardware Level" to false
  set cursor to busy
  set lockscreen to true
  --∆ Set up for applications level
  if floor is 3 then
    put sol into sol1
    put "Network Services" into sol
    --∆ Put the network service in room that selected applications use
    if fld "Network" contains "File Transfer" then
      put "File Transfer" into service
    end if
    if fld "Network" contains "File Service" or fld "Network" contains "CL/1" or fld "Network" contains "Client" then
      put "File Service" into service
    end if
    if fld "Network" contains "Translation" then
      put "Translation" into service
    end if
  end if
  --∆ Go to network level with correct effect
  put 2 into floor
  put "Network Services" into sol
  if bkgnd fld "Floorname" is "Application Level"
  then
  go to cd "Network" && theRoom
  unlock screen with wipe up slowly
end if
if bkgnd fld "Floorname" is "Hardware Level" then
  if env is not "Mac" then
    if env is not "PC" then
      put "room" into theRoom
    else
      put "roomMicro" into theRoom
    end if
  else
    put "roomMac" into theRoom
  end if
  go to cd "Network" && theRoom
  unlock screen with wipe down slowly
end if
end mouseUp

on mouseEnter
  put "Network Level Button" & return & "click to change levels" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


-- part 9 (field)
-- low flags: 81
-- high flags: 6004
-- rect: left=253 top=122 right=279 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name: EnvExplainer
----- HyperTalk script -----
on mouseUp
  put empty into me
  hide me
  put empty into field "Explainer"
  hide field "Explainer"
end mouseUp


-- part 24 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=182 top=286 right=303 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Hardware Level
----- HyperTalk script -----
on mouseUp
  Global theRoom,sol,sol1,default,floor,foundation
  set the highlight of me to true
  set the highlight of Background button "Application Level" to false
  set the highlight of Background button "Network Level" to false
  put 1 into floor
  if foundation is empty then put "Macintosh II Family" into foundation
  set lockscreen to true
  Set Cursor to busy
  if bkgnd fld "FloorName" is "Application Level" then
    put sol into sol1
    put "Hardware" into sol
    go to cd "Hardware Room"
    unlock screen with wipe up slowly
  end if
  if bkgnd fld "FloorName" is "Network Level" then
    put "Hardware" into sol
    go to cd "Hardware Room"
    unlock screen with wipe up slowly
  end if
end mouseUp

on mouseDown
  Global ClickSND
  play ClickSND
end mouseDown

on mouseEnter
  put "Hardware Level Button" & return & "click to change levels" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseleave




-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=34 top=213 right=235 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: prodname
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Macintosh Side" & return & "click for product details" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  get me
  if it is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of it into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp



-- part 38 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=82 top=68 right=82 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 242
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: prodnameUp
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Macintosh Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  get me
  if it is empty
  then
  put "Choose a product by" & return & "clicking on Macintosh screen" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of it into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp



-- part 41 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=103 top=38 right=60 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 12
-- style flags: 256
-- line height: 14
-- part name: solName
----- HyperTalk script -----
on mouseEnter
  put "Room Name" & return & "current location" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave


-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=36 top=214 right=231 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  if fld "prodname" is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of fld "prodname" into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp

on mouseEnter
  ChangeCurs 6069
  put "Macintosh Based Product" & return & "click for product details" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave


-- part 45 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=384 top=214 right=233 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: prodname2
----- HyperTalk script -----
on mouseEnter
  global env
  changeCurs 6069
  put env & " Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave


On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  get me
  if it is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of it into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp



-- part 46 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=228 right=242 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: click2
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Host Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  if fld "prodname" is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of fld "prodname" into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp



-- part 51 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=247 top=68 right=82 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: prodnameUp2
----- HyperTalk script -----
on mouseEnter
  global env
  changeCurs 6069
  put "The " & env & " Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  get me
  if it is empty
  then
  put "Choose a Product by" & return & "by clicking monitor" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of it into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=213 right=231 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseEnter
  global env
  changeCurs 6069
  put env & " Side Product" & return & "click for product details" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseUp
  if fld "prodname2" is empty
  then
  put "Choose a Product!" into fld "Tell"
  exit mouseUp
else
  put char 1 to 26 of fld "prodname2" into prod
  push card
  visual effect dissolve
  go card prod of stack "Products"
end if
end mouseUp

on mouseEnter
  ChangeCurs 6069
  put "Host Button" & return & "click for information" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 53 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=110 top=86 right=160 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side1
----- HyperTalk script -----
on mouseEnter
  put "Macintosh Side" & return & "file format(s) used" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseleave



-- part 54 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=250 top=86 right=160 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side2
----- HyperTalk script -----
on mouseEnter
  global env
  put env & " Side" & return & "file format(s) used" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave



-- part 55 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=154 top=162 right=210 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Network
----- HyperTalk script -----
on mouseEnter
  put "Network communication method required" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseleave

on mouseUp
  send mouseUp to bkgnd btn "Network Level"
end mouseUp


-- part 11 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=142 top=68 right=173 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseUp
  global help
  put false into help
  set hilite of bkgnd btn help to false
  put empty into me
  hide me
  put empty into field "Explainer"
  hide field "Explainer"
end mouseUp



-- part 59 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=307 right=339 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
on mouseEnter
  put "Message Field" & return & "displays stack information" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseLeave


-- part 63 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
  global Help
  if Help is true then exit mouseUp
  set lockscreen to true
  clean
  push card
  unlock screen with dissolve
  go to cd "Lobby"
end mouseUp

--• HELP
on mouseEnter
  global Help
  if Help then
    set lockscreen to true
    show field "Explainer"
    put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
    unlock screen with dissolve fast
  else
    put "'Lobby' Button" & return & "click to go to Lobby" into fld "Tell"
  end if
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  global Help
  if Help
  then
else
  put empty into fld "Tell"
end if
end mouseLeave


-- part 65 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
  global Help
  if Help is True then exit mouseUp
  set lockScreen to true
  clean
  push card
  visual effect dissolve
  go to cd "Matrix"
end mouseUp

--• HELP
on mouseEnter
  global Help
  if Help then
    set lockscreen to true
    show field "Explainer"
    put "This is the 'Matrix' button. " & return & return & "This button takes you instantly to the Matrix of Solutions " & "and Environments." & return & "This is the fastest way to get started." into field "Explainer"
    unlock screen with dissolve fast
  else
    ChangeCurs 13000
    put "'Matrix' Button" & return & "click to go to the Matrix" into fld "Tell"
  end if
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  global Help
  if Help
  then
else
  put empty into fld "Tell"
end if
end mouseLeave



-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 70 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 72 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 78 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=0 top=303 right=342 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXIT
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Exit Button" & return & "click to quit or go home" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
  unlock screen with dissolve
  set lockscreen to true
  if it is "Quit" then doMenu "Quit HyperCard"
  if it is "Home" then
    domenu Home
  end if
  unlock screen with dissolve
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 79 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=303 right=342 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  print card
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Printer Button" & return & "click to print this image" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 80 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outliner
----- HyperTalk script -----
on mouseUp
  global Mack,Host
  push card
  set cursor to busy
  set the lockscreen to true
  put true into Mack
  put false into Host
  go to cd "Outliner"
  send mouseUp to cd btn "macSwitch"
  unlock screen with dissolve
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Outliner Button" & return & "use outline navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 81 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoBack
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  go Back
  unlock screen with visual effect wipe right
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Go Back Button" & return & "click to go to prev card" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  changeCurs 69
  put empty into fld "Tell"
end mouseLeave


-- part 82 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=84 top=303 right=342 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 20358 / 20358
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Glossary
----- HyperTalk script -----
on mouseUp
  set cursor to busy
  get short name of this card
  if it is "Outliner" then clearF
  push card
  visual effect iris open
  go cd "glossary"
end mouseUp

on mouseEnter
  put "Glossary Button" & return & "click to go to the Glossary" into fld "Tell"
  changeCurs 6069
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 83 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=42 top=303 right=342 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 21375 / 21375
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outline mode
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Briefing Button" & return & "click to go to briefing room" into fld "Tell"
end mouseEnter

on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  go to cd "Briefing Room"
  unlock screen with dissolve
  pass mouseUp
end mouseUp

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 84 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
  push card
  set lockscreen to true
  set cursor to busy
  go to cd "Matrix"
  unlock screen with visual effect dissolve
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Matrix Button" & return & "use matrix navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 85 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set cursor to busy
  push card
  unlock screen with dissolve
  go to cd "Lobby"
end mouseUp

on mouseEnter
  changeCurs 6069
  put "Lobby Button" & return & "use building navigation" into fld "Tell"
end mouseEnter

On mouseDown
  global ButtonSND
  play ButtonSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 87 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=0 top=0 right=28 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title bar


-- part 68 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=12 top=0 right=30 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: FloorName